﻿Imports Microsoft.Scripting.Hosting
Imports Microsoft.Scripting

Namespace ScriptingHost

    Public Class CompilationErrorEventArgs
        Inherits EventArgs

        Public Property ScriptSource() As ScriptSource
        Public Property Message() As String
        Public Property SourceSpan() As SourceSpan
        Public Property ErrorCode() As Integer
        Public Property Severity() As Severity

        Public Sub New(source As Microsoft.Scripting.Hosting.ScriptSource, message As String, span As Microsoft.Scripting.SourceSpan, errorCode As Integer, severity As Microsoft.Scripting.Severity)
            Me.ScriptSource = source
            Me.Message = message
            Me.SourceSpan = span
            Me.ErrorCode = errorCode
            Me.Severity = severity
        End Sub

    End Class

End Namespace